home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / E-Education / (e)d2.d64 / main menu 64 (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  6KB  |  169 lines
  1. 100 PRINT"[147]":POKE53281,12:PRINTCHR$(14):GOSUB1700:POKE808,225
  2. 110 FORI=6TO16:POKE53280,I:FORDY=1TO450:NEXTDY:NEXTI:FORDY=1TO1500:NEXTDY
  3. 120 PR$(1)="THE HUNTER.1":PR$(2)="THE GAME.1"
  4. 130 PR$(3)="CHOCOLATE GOO.2":PR$(4)="MONSTER WAVE.2"
  5. 140 PR$(5)="INVASION.3":PR$(6)="FIREFIGHT.3"
  6. 150 Q1$=""
  7. 160 PRINTCHR$(14):GOTO210
  8. 170 PRINTQ1$;CO$"   [208]RESS THE [146] [210]ETURN [203]EY  TO CONTINUE [146]"
  9. 180 GETZ$:IFZ$=""THEN180
  10. 190 IFZ$<>CHR$(13)THEN180
  11. 200 RETURN
  12. 210 PRINT"[147]":POKE53281,0:POKE53280,2
  13. 220 PRINT"[152]                               [146]"
  14. 230 PRINT"         [193]DVENTURE [208]ACK [211]ERIES[152] "
  15. 240 PRINT"                               [146]"," "
  16. 250 PRINT" [215]ELCOME TO THE [193]DVENTURE [208]ACK READING "
  17. 260 PRINT" SERIES. [208]LEASE CHOOSE FROM ONE OF THE"
  18. 270 PRINT"       SELECTIONS LISTED BELOW."
  19. 280 FORDY=1TO750:NEXTDY
  20. 290 PRINT"                                    [146]"
  21. 300 PRINT"               [211][197][204][197][195][212][201][207][206][211]           "
  22. 310 PRINT"                                    "
  23. 320 PRINT"     [146]                               "
  24. 330 PRINT"     [146]  1) [211]TUDENT [201]NSTRUCTIONS      "
  25. 340 PRINT"     [146]                               "
  26. 350 PRINT"     [146]  2) [212]EACHER [201]NSTRUCTIONS      "
  27. 360 PRINT"     [146]                               "
  28. 370 PRINT"     [146]  3) [208]ICK A [211]TORY              "
  29. 380 PRINT"     [146]                               "
  30. 390 PRINT"     [146]  4) [197]ND THE [208]ROGRAM           "
  31. 400 PRINT"     [146]                               "
  32. 410 PRINT"                                    "
  33. 420 PRINT"  [215]HICH SELECTION WOULD YOU LIKE (1-4) [146]"
  34. 430 GETZ$:IFZ$=""THEN430
  35. 440 CH=VAL(Z$):IFCH<1ORCH>4THEN430
  36. 450 ONCHGOSUB470,760,1380,1680
  37. 460 GOTO210
  38. 470 POKE53280,7:POKE53281,12:PRINT"[147]"
  39. 480 PRINT"                                "
  40. 490 PRINT"          [211]TUDENT [201]NSTRUCTIONS  "
  41. 500 PRINT"                                "
  42. 510 PRINT"   [212]HE [193]DVENTURE [210]EADING [208]ACK IS A "
  43. 520 PRINT" GROUP OF STORIES FOR YOU TO READ."
  44. 530 PRINT" [197]ACH STORY IS SPLIT INTO THREE PARTS."
  45. 540 PRINT" [193]FTER READING A SECTION, YOU WILL BE"
  46. 550 PRINT" ASKED TO ANSWER SOME QUESTIONS ABOUT"
  47. 560 PRINT" WHAT YOU HAVE READ."
  48. 570 CO$="[144]":GOSUB170
  49. 580 PRINT"[147]   [217]OU MAY HAVE THE STORY PRINTED OUT"
  50. 590 PRINT" ON THE SCREEN IN ONE OF TWO WAYS."
  51. 600 PRINT" 1) [193] [144] PARAGRAPH [146] AT A TIME.
  52. 610 [153]" 2) ATN STOP PHRASE WAIT AT A TIME."
  53. 620 [153]"   RIGHT$F YOU CHOOSE THE SECOND OPTION,"
  54. 630 [153]" YOU WILL BE ABLE TO CONTROL THE SPEED"
  55. 640 [153]" OF THE PHRASES BEING FLASHED ON THE"
  56. 650 [153]" SCREEN."
  57. 660 [141]170
  58. 670 [153]"LOAD    (null)VAL(null)VAL(null)PEEKVAL(null): WAIT (null)HIS IS NOT A SPEED"
  59. 680 [153]" READING TEST. RIGHT$T IS MORE IMPORTANT"
  60. 690 [153]" FOR YOU TO READ FOR UNDERSTANDING!"
  61. 700 [153]"   (null)OUR SCORE WILL BE SHOWN AFTER YOU"
  62. 710 [153]" HAVE FINISHED. (null)OU MAY ALSO HAVE THE"
  63. 720 [153]" REPORT PRINTED TO A PRINTER IF ONE"
  64. 730 [153]" IS ATTACHED TO THIS COMPUTER."
  65. 740 [153]"             STOP LEFT$ATN(null)VAL ASC(null)(null)CLOSE! WAIT"
  66. 750 [141]170:[142]
  67. 760 [151]53281,11:[151]53280,14:[153]"LOADSYS          (null)EACHER RIGHT$NSTRUCTIONS "
  68. 770 [153]"   (null)HE  ATNDVENTURE (null)EADING (null)ERIES WAIT IS"
  69. 780 [153]" MADE UP OF (null)IX READING PASSAGES."
  70. 790 [153]"   VALACH OF THE STORIES ARE PRESENTED"
  71. 800 [153]" TO THE STUDENT IN THREE PARTS. ATNFTER"
  72. 810 [153]" EACH PART FIVE QUESTIONS ARE PRESENTED"
  73. 820 [153]" FOR THE STUDENT TO ANSWER."
  74. 830 CO$[178]"PRINT":[141]170
  75. 840 [153]"LOAD   (null)HE STORIES MAY BE PRESENTED ON"
  76. 850 [153]" SCREEN IN ONE OF TWO METHODS;"
  77. 860 [153]" 1) ATN PARAGRAPH AT A TIME."
  78. 870 [153]" 2) ATN PHRASE AT A TIME."
  79. 880 [153]"   (null)HE SECOND METHOD IS VERY SIMILAR"
  80. 890 [153]" TO A TACHISTISCOPE USED IN SPEED"
  81. 900 [153]" READING PROGRAMS, HOWEVER, THIS IS"
  82. 910 [153]"  (null)(null)(null) WAIT THE INTENT HERE!"
  83. 920 [141]170
  84. 930 [153]"LOAD   (null)HE TACHISTISCOPE METHOD MAY HELP"
  85. 940 [153]" STUDENTS WITH SHORT ATTENTION SPANS"
  86. 950 [153]" TO FOCUS BETTER ATTENTION. (null)HE STUDENT"
  87. 960 [153]" IS FORCED TO MAINTAIN HIS/HER "
  88. 970 [153]" ATTENTION OR THE STORY COMPREHENSION"
  89. 980 [153]" WILL BE LOST."
  90. 990 [153]"   (null)N THE OTHER HAND, IT IS DIFFICULT"
  91. 1000 [153]" FOR THE READER TO GRASP THE STORY"
  92. 1010 [153]" INTONATIONS IN SUCH AN APPROACH."
  93. 1020 [141]170
  94. 1030 [153]"LOAD   VALACH OF THE QUESTION SETS ARE"
  95. 1040 [153]" RANDOMNLY SELECTED FROM A BANK OF"
  96. 1050 [153]" EIGHT. (null)HEREFORE IT IS LIKELY THAT IF"
  97. 1060 [153]" THE SAME STUDENT WERE TO READ THE SAME"
  98. 1070 [153]" STORY TWICE, HE/SHE WOULD RECIEVE"
  99. 1080 [153]" SOME NEW QUESTIONS ON THE SECOND TRY."
  100. 1090 [153]"   (null)HE STUDENT'S PROGRESS IS KEPT"
  101. 1100 [153]" TRACK OF AND A REPORT IS PRINTED"
  102. 1110 [153]" UPON STORY COMPLETION. (null)HIS REPORT"
  103. 1120 [153]" MAY ALSO BE PRINTED TO A PRINTER."
  104. 1130 [141]170
  105. 1140 [153]"LOAD   (null)HE STUDENT RECIEVES TWO CHANCES "
  106. 1150 [153]" TO ANSWER EACH QUESTION CORRECTLY."
  107. 1160 [153]" ATN CORRECT SECOND GUESS IS NOT COUNTED"
  108. 1170 [153]" AGAINST THE STUDENT, BUT A RECORD"
  109. 1180 [153]" IS KEPT OF THIS FACT."
  110. 1190 [141]170
  111. 1200 [153]"LOAD   VALACH OF THE STORIES ARE ORIGINAL"
  112. 1210 [153]" WORKS. ATNN ATTEMPT HAS BEEN MADE TO"
  113. 1220 [153]" MAINTAIN A HIGH INTEREST APPROACH."
  114. 1230 [153]"   (null)EADING LEVELS RANGE FROM GRADE"
  115. 1240 [153]" 5 TO 9. ATNN APPROXIMATE LEVEL CAN"
  116. 1250 [153]" BE DETERMINED FROM THE STORY TITLE."
  117. 1260 [153]"   ATN NUMBER 1 STORY IS APPROXIMATELY"
  118. 1270 [153]" GRADE 5-6 LEVEL WHILE A NUMBER 3 IS"
  119. 1280 [153]" A GRADE 8-9 LEVEL."
  120. 1290 [141]170
  121. 1300 [153]"LOAD   (null)LEASE FEEL FREE TO MODIFY OR ADD"
  122. 1310 [153]" TO THESE PROGRAMS IN ANY WAY. ATNNY"
  123. 1320 [153]" SUGGESTIONS OR COMMENTS WOULD BE WELL"
  124. 1330 [153]" RECIEVED IF MAILED TO;"
  125. 1340 [153]"     (null)R. (null). (null)RACHUN"
  126. 1350 [153]"     (null).(null).PEEKOX 1447"
  127. 1360 [153]"     (null)ORT (null)ERRY, (null)NT. (null)0PEEK 1(null)0"
  128. 1370 [141]170:[142]
  129. 1380 [151]53281,11:[151]53280,7:[153]"LOADFOR                          "
  130. 1390 [153]"             (null)ICK A (null)TORYFOR "
  131. 1400 [153]"                          "
  132. 1410 [153]"           1) (null)HE LEFT$UNTER.1"
  133. 1420 [153]"           2) (null)HE CHR$AME.1"
  134. 1430 [153]"           3) LENHOCOLATE CHR$OO.2"
  135. 1440 [153]"           4) (null)ONSTER (null)AVE.2"
  136. 1450 [153]"           5) RIGHT$NVASION.3"
  137. 1460 [153]"           6) ASCIREFIGHT.3"
  138. 1470 [153]"           7) (null)AIN (null)ENU (null)ETURN"
  139. 1480 [153]"      (null)HICH WOULD YOU LIKE (1-7)?  "
  140. 1490 [161]Z$:[139]Z$[178]""[167]1490
  141. 1500 CH[178][197](Z$):[139]CH[179]1[176]CH[177]7[167]1490
  142. 1510 [139]CH[178]7[167][142]
  143. 1520 [153]Q1$;"STOPLOAD        (null)OADING: ";PR$(CH)
  144. 1530 [151]53281,1:[151]53280,6
  145. 1540 [143] *** BOOT SAMPLE ***
  146. 1550 :
  147. 1560 :
  148. 1570 [143] *** FIRST PROGRAM BOOTED ***
  149. 1580 :
  150. 1590 [153]"LOAD"[199](34);PR$(CH);[199](34)",8"
  151. 1600 :
  152. 1610 :
  153. 1620 [153]"RUN"
  154. 1630 :
  155. 1640 [143] *** SET-UP KEYBOARD BUFFER ***
  156. 1650 :
  157. 1660 [153]"":[129]J[178]0[164]4:[151]631[170]J,13:[130]J:[151]198,5
  158. 1670 [128]
  159. 1680 [153]"LOAD"[199](142);"           GOOGBYE FOR NOW! ":[128]
  160. 1690 :
  161. 1700 [153][163]4)"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  162. 1710 [153][163]4)" ATNDVENTURE (null)ACK (null)EADING (null)ERIES "
  163. 1720 [153][163]9)"POKEASCREE ASCOR STR$ISTRIBUTION"
  164. 1730 [153][163]18)"IN"
  165. 1740 [153][163]9)"LENANADIAN (null)CHOOLS (null)NLY"
  166. 1750 [153][163]15)"SYSLENOURTESY"
  167. 1760 [153][163]11)"LEN(null)(null)(null)(null)STR$(null)(null)VAL LENATN(null)ATNSTR$ATNLIST"
  168. 1770 [142]
  169.